﻿Imports System.ComponentModel

Public Class DisConnectEventArgs
    Inherits AsyncCompletedEventArgs

    Private m_clientSocket As System.Net.Sockets.Socket
    Public Property ClientSocket() As System.Net.Sockets.Socket
        Get
            Return m_clientSocket
        End Get
        Set(ByVal value As System.Net.Sockets.Socket)
            m_clientSocket = value
        End Set
    End Property

    Public Sub New(ByVal [error] As Exception, ByVal cancelled As Boolean, ByVal userState As Object)
        MyBase.New([error], cancelled, userState)
    End Sub

    Public Sub New(ByVal clientSocket As System.Net.Sockets.Socket, ByVal [error] As Exception, ByVal cancelled As Boolean, ByVal userState As Object)
        MyBase.New([error], cancelled, userState)
        Me.m_clientSocket = clientSocket
    End Sub
End Class
